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009D- 
OOA0- 
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00B8- 
0200- 


00B7- 
D539- 
EBF2- 
EC 4A- 
FD75- 
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0305- 
0306- 
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0311- 
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0313- 
0316- 
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0328- 
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FD 
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00 
EC 


LINNUM 
FACEXP 
FACMO 

FACLO 

FAC SGN 
TXTPTR 
BUFFER 


_CHRGOT 


GDBUFS 
QINT 
FIN 


PROGRAM TO INPUT AN INTEGER FROM 
0-65535, AND PUT IT IN $50,51 


BY PETER MEYER, 


10/24/81 


MAY BE FREELY USED WITH ACKNOWLEDGEMENT 


CALL: 


JSR GET. INTEGER.INTO.LINNUM 

INTEGER VALUE IN LINNUM ($50,511) 

AND CARRY CLEAR, 

OR CARRY SET IF VALUE NEGATIVE 
OR TOO LARGE, OR HAS A 
LETTER IN IT. 


GET. INTEGER. INTO. LINNUM 


+ + + % 


LDX 


# 0 


JSR NXTCHR 


AND 


1 


CHECK FOR NULL ENTRY 
NULL 


CHECK FOR ALPHA INPUT 

AND ALSO WEED OUT ENTRIES SUCH AS 
"1LE99" 
CAUSE OVERFLOW. 


"99999...." WHICH WOULD 


BUFFER, X 
#'A 
a2 


~ GET NUMBER INTO FAC 


LDA 
LDY 
STA 
STY 
JSR 
JSR 


#BUFFER 
/BUFFER 
TXTPTR 
TXTPTR+1 
CHRGOT 
FIN 


1600 *-------~-------------------------- 


1610 * 


CHECK IF NUMBER IS NEGATIVE 


1620 *-----~---------------------------- 
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1670 *--------------------------------- 


1680 * 


CHECK IF NUMBER IS TOO LARGE 


1690 *--------------------------------- 
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ooo 


1730 *--------------------------------- 


1740 * 


PLACE IN LINNUM 


1750 *--------------------------------- 


0337- 20 F2 EB 1760 


CONVERT TO INTEGER 
SIGNAL GOOD VALUE 


JSR QINT 
LDA FACLO 
LDY FACMO 
STA LINNUM 
STY LINNUM+1 


CLC 
RTS 


~4 


1770 
1780 
1790 
1800 
1810 
1820 


85 50 


0340- 84 51 
0342- 
0343- 


O33A- A5 Al 
033C- A4 AO 
18 
60 


033E- 
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